-- card: 10250 from stack: in
-- bmap block id: 11017
-- flags: 0000
-- background id: 2585
-- name: elevatorKlosed
----- HyperTalk script -----
--on openCard
global env, currentFloor, nextFloor
set lockScreen to true
put env into EnvTemp
if Env is "Mac" then put "Macintosh" into EnvTemp
put envTemp into cd field "EnvName"
put currentFloor into cd fld "currentFloor"
--∆ Set lights over door
set the hilite of btn "3  Applications" to false
set the hilite of btn "2  Network Services" to false
set the hilite of btn "1  Hardware" to false
set the hilite of btn "0  Lobby" to true
--∆ Set destination indicator
hide cd btn "3  ApplicationsHiliter"
hide cd btn "2  Network ServicesHiliter"
hide cd btn "1  HardwareHiliter"
hide cd btn "0  LobbyHiliter"
show cd btn (nextFloor & "Hiliter")
unlock screen with visual barn door close
pass openCard
--end openCard



-- part 8 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=177 top=0 right=23 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 16384
-- line height: 21
-- part name: CurrentFloor


-- part 10 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=3 top=133 right=192 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 10
-- style flags: 16384
-- line height: 13
-- part name: Destination
----- HyperTalk script -----
--on mouseDown
global floor,currentFloor,nextFloor
--∆ Move to chosen level/floor
--set the lockscreen to true
put character 1 of nextFloor into floorDestination
repeat with x = (floor + 1) to floorDestination
  ElevatorAction --∆ In the stack script.
  --wait 80
end repeat
play "22"
if currentFloor is "0  Lobby" then
  go to cd "elevatorOpen"
else
  go to cd "elevatorOpenHall"
end if
--end mouseDown


--∆ lobby is floor 0,
--∆ foundation is floor 1, network services is 2, app is 3.
global floor,nextFloor,lastFloor,currentFloor
if floor < floorDestination then
  repeat with x = (floor + 1) to floorDestination
    set lockscreen to true
    put line x of cd fld "Destination" into currentFloor
    put currentFloor into cd fld "currentFloor"
    --if lastFloor is not empty then
    --set the highlite of cd button lastFloor to false
    --set the highlite of cd button (lastFloor & "hiliter") to false
    --hide cd button (lastFloor & "hiliter")
    --end if
    set the highlite of cd button currentFloor to true
    --set the highlite of cd button (currentFloor & "hiliter") to true
    --show cd button (currentFloor & "hiliter")
    --put currentFloor into lastFloor
    unlock screen with visual effect wipe up
    wait 60
  end repeat
  put nextFloor into floor
end if


--∆ Set lights over door
set the hilite of btn "3  Applications" to false
set the hilite of btn "2  Network Services" to false
set the hilite of btn "1  Hardware" to false
set the hilite of btn "0  Lobby" to true
--put currentFloor into cd field "currentFloor"
show cd btn (currentFloor & "hiliter")

set the hilite of btn "3  Applications" to false
set the hilite of btn "2  Network Services" to false
set the hilite of btn "1  Hardware" to false
set the hilite of btn "0  Lobby" to false
set the hilite of button currentfloor to true
put currentfloor into cd field "currentfloor"
play "22"
unlock screen with visual barn door open
wait 5
set lockscreen to true
set cursor to busy
go to cd "hallway1"




-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=178 top=23 right=35 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0  Lobby


-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=222 top=23 right=35 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1  Hardware


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=270 top=23 right=35 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2  Network Services


-- part 14 (button)
-- low flags: 00
-- high flags: 6000
-- rect: left=317 top=23 right=35 bottom=332
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3  Applications


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=105 right=171 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: kiosk
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  put empty into field "Explainer"
  push card
  go to cd "kiosk"
  unlock screen with dissolve
end mouseUp

on mouseEnter
  show field "Explainer"
  put "This is the 'Information Kiosk'. " && return && return && "It will help you to understand what products will work " && "with each other and provide ready access to the help and " && "lobby locations." into field "Explainer"
  pass mouseEnter
end mouseEnter

on mouseDown
  Global ButtonSND
  play ButtonSND
end mouseDown

on mouseLeave
  hide field "Explainer"
end mouseLeave




-- part 23 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=3 top=105 right=128 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 14
-- style flags: 16640
-- line height: 18
-- part name: EnvName


-- part 33 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=164 right=178 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1  HardwareHiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 34 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=177 right=191 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0  LobbyHiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 35 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=4 top=151 right=165 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2  network serviceshiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 38 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=4 top=138 right=152 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3  ApplicationsHiliter
----- HyperTalk script -----
on mouseEnter
  global Help
  put "Level Indicator" & return & "you are now at this level" into fld "Tell"
  changeCurs 6069
end mouseEnter

on mouseleave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave



-- part 39 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=28 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: 


-- part contents for card part 10
----- text -----
3  Applications
2  Network Services
1  Hardware
0  Lobby

-- part contents for card part 23
----- text -----
Digital

-- part contents for card part 39
----- text -----
  Inside Elevator

-- part contents for card part 8
----- text -----
3  Applications

-- part contents for background part 18
----- text -----
This is the 'Information Kiosk'.  
 
 It will help you to understand what products will work  with each other and provide ready access to the help and  lobby locations.